i := 10;
repeat 
	i := i - 1
until i
